home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / share / Dos / VARIOS / pascal / DELPHI.SWG / 0017_Get a file's date and time stamp.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-02-21  |  257 b   |  13 lines

  1.  
  2. function GetFileDate(TheFileName: string): string;
  3. var
  4.   FHandle: integer;
  5. begin
  6.   FHandle := FileOpen(TheFileName, 0);
  7.   try
  8.     Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
  9.   finally
  10.     FileClose(FHandle);
  11.   end;
  12. end;
  13.